home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 November / Chip 11-96.iso / treiber / drucker / lexmark / 4039_xxx / win3x / ps1 / 4039ps1.exe / WK2039PS.ZIP / IBM40193.INI next >
Text File  |  1993-03-07  |  12KB  |  310 lines
  1. %!PS-Adobe-2.0 ExitServer
  2. %%Title: Microsoft Word Driver Prolog
  3. %%Creator: LEXMARK INTERNATIONAL INC
  4. %%CreationDate: FEB 26 1993
  5. %%BeginDocument: Microsoft Word 5.x 0
  6. %%msinifile: ibm40193
  7. %%EndComments
  8. %%userdict /msinifile known
  9. %%{msinifile (IBM40193) eq {stop} if} if
  10. %%BeginExitServer: 0
  11. %%serverdict begin 0 exitserver
  12. %%EndExitServer
  13. userdict /msorigstate known {msorigstate restore} if
  14. save /msorigstate exch def
  15. /msinifile (ibm40193) def
  16.  
  17. /PSl {msdict begin msinit /landscape true def /ptop 612 def 90 rotate} def
  18. /PSp {msdict begin msinit /landscape false def /ptop 792 def} def
  19. %%BeginFont: mslinedraw
  20. /mslinedraw 25 dict def
  21. mslinedraw begin
  22. /FontType 3 def
  23. /FontMatrix [1.0 30.0 div 0 0 1.0 30.0 div 0 0] def
  24. /FontBBox [0 -8 18 30] def
  25. /Encoding 256 array def
  26. 0 1 255 {Encoding exch /.notdef put} for
  27. Encoding 45 [
  28.  /sh   /sh   /sh /light /med /dark
  29.  /sv   /srj  /sdjr /dsjr /sdtr /dstr /djr  /dv
  30.  /dtr  /dbr  /sdbr /dsbr /str  /sbl  /sjb  /sjt
  31.  /sjl  /sh   /sjc  /sdjl /dsjl /dbl  /dtl  /djb
  32.  /djt  /djl  /dh   /djc  /dsjb /sdjb /dsjt /sdjt
  33.  /sdbl /dsbl /dstl /sdtl  /sdjc /dsjc /sbr  /stl
  34.  /black /bb /bl /br /bt] putinterval
  35.  
  36. /pl {transform 0.1 sub round 0.1 add exch
  37.  0.1 sub round 0.1 add exch itransform} bind def
  38. /moveto {pl moveto} bind def
  39. /lineto {pl lineto} bind def
  40.  
  41. /a {moveto lineto stroke} bind def
  42. /b {moveto lineto lineto stroke} bind def
  43. /c {moveto 9 7 lineto stroke} bind def
  44. /d {moveto lineto lineto} bind def
  45. /e {lineto closepath fill} bind def
  46. /f {7 22 7 9 0 9 b} def
  47. /g {12 22 12 9 18 9 b} def
  48. /h {7 -8 7 5 0 5 b} def
  49. /i {12 -8 12 5 18 5 b} def
  50. /j {0 7 18 7 a} def
  51. /k {9 22 9 -8 a} def
  52. /l {0 5 18 5 a 0 9 18 9 a} def
  53. /m {7 22 7 -8 a 12 22 12 -8 a} def
  54. /n {0 -8 18 -8 18 22 d 0 22 e} def
  55.  
  56. /CharProcs 55 dict def
  57. CharProcs begin
  58. /.notdef {} def
  59. /sp { 1 1 moveto } def
  60. /sv {k} def
  61. /srj {k 0 7 c} def
  62. /sdjr {k 0 5 9 5 a 0 9 9 9 a} def
  63. /dsjr {m 0 7 7 7 a} def
  64. /sdtr {0 7 12 7 12 -8 b 7 7 7 -8 a} def
  65. /dstr {0 9 9 9 9 -8 b 0 5 9 5 a} def
  66. /djr {f h 12 -8 12 22 a} def
  67. /dv {m} def
  68. /dtr {h 0 9 12 9 12 -8 b} def
  69. /dbr {f  0 5 12 5 12 22 b} def
  70. /sdbr {0 7 12 7 12 22 b 7 7 7 22 a} def
  71. /dsbr {0 5 9 5 9 22 b 0 9 9 9 a} def
  72. /str {0 7 9 7 9 -8 b} def
  73. /sbl {9 22 9 7 18 7 b} def
  74. /sjb {j 9 22 c} def
  75. /sjt {j 9 -8 c} def
  76. /sjl {k 18 7 c} def
  77. /sh {j} def
  78. /sjc {j k} def
  79. /sdjl {k 9 9 18 9 a 9 5 18 5 a} def
  80. /dsjl {m 12 7 18 7 a} def
  81. /dbl {g 7 22 7 5 18 5 b} def
  82. /dtl {i 7 -8 7 9 18 9 b} def
  83. /djb {f g 0 5 18 5 a} def
  84. /djt {h i 0 9 18 9 a} def
  85. /djl {g i 7 -8 7 22 a} def
  86. /dh {l} def
  87. /djc {f g h i} def
  88. /dsjb {l 9 22 9 9 a} def
  89. /sdjb {j 7 7 7 22 a 12 7 12 22 a} def
  90. /dsjt {l 9 -8 9 5 a} def
  91. /sdjt {j 7 7 7 -8 a 12 7 12 -8 a} def
  92. /sdbl {7 22 7 7 18 7 b 12 22 12 7 a} def
  93. /dsbl {9 22 9 5 18 5 b 9 9 18 9 a} def
  94. /dstl {9 -8 9 9 18 9 b 9 5 18 5 a} def
  95. /sdtl {7 -8 7 7 18 7 b 12 -8 12 7 a} def
  96. /sdjc {m j} def
  97. /dsjc {l k} def
  98. /sbr {0 7 9 7 9 22 b} def
  99. /stl {9 -8 9 7 18 7 b} def
  100. /light {0.90 setgray n} def
  101. /med {0.60 setgray n} def
  102. /dark {0.30 setgray n} def
  103. /black {n} def
  104. /bt {0 7 18 7 18 22 d 0 22 e} def
  105. /bb {0 -8 18 -8 18 7 d 0 7 e} def
  106. /bl {0 -8 9 -8 9 22 d 0 22 e} def
  107. /br {9 -8 18 -8 18 22 d 9 22 e} def
  108. end %CharProcs
  109.  
  110. /BuildChar
  111.   { fs 1 and 0 eq {1} {3} ifelse setlinewidth
  112.     18 0 setcharwidth
  113.     exch begin
  114.      Encoding exch get
  115.      CharProcs exch get
  116.      exec
  117.     end
  118.   } def
  119. end %mslinedraw
  120. %%EndFont
  121.  
  122. FontDirectory /LineDraw known not
  123.  {/LineDraw mslinedraw definefont pop} if
  124.  
  125. %%BeginProcSet: msdict 1.5 0
  126. /msdict 120 dict def
  127. msdict begin
  128. /PSe {end} def
  129. /SLL {pop} def
  130. /P {exch msu exch msu neg ptop add moveto} bind def
  131. /S {sw 0 32 4 -1 roll widthshow} bind def
  132. /C {1 string dup 0 4 -1 roll put S} bind def
  133. /J {msu ( ) stringwidth pop sub /sw exch def} bind def
  134. /PE {showpage ptop exch restore save exch /ptop exch def} def
  135. /SFL {landscape {dup msu neg 0 exch translate} if
  136.  msu /ptop exch def save} def
  137. /B1 {statusdict begin papertray 1 ne {1 setpapertray end} {end} ifelse} def
  138. /B2 {statusdict begin papertray 2 ne {2 setpapertray end} {end} ifelse} def
  139. /B3 {statusdict begin papertray 3 ne {3 setpapertray end} {end} ifelse} def
  140. /BENV {} def
  141. %%BeginModelCheck
  142. statusdict begin product end dup length string cvs /msprod exch def
  143. msprod (OmniLaser) eq msprod (RX7100PS) eq or msprod (OL840) eq or msprod (LaserPrinter15) eq or
  144.  {/B1 {statusdict begin papertray 0 ne {0 setpapertray end} {end} ifelse} def
  145.   /B2 {statusdict begin papertray 1 ne {1 setpapertray end} {end} ifelse} def
  146.   /B3 {} def
  147.   /BENV {} def} if
  148. msprod 0 16 getinterval (IBM LaserPrinter) eq
  149.  {/B1 {statusdict begin papertray 0 ne {0 setpapertray end} {end} ifelse} def
  150.   /B2 {statusdict begin papertray 1 ne {1 setpapertray end} {end} ifelse} def
  151.   /B3 {} def
  152.   /BENV {statusdict begin papertray 2 ne {2 setpapertray end} {end} ifelse} def} if
  153. msprod 0 2 getinterval (HP) eq msprod (Hewlett-Packard LaserJet IIISi) eq or
  154.  {/B1 {statusdict begin papertray 0 ne {0 setpapertray end} {end} ifelse} def
  155.   /B2 {statusdict begin papertray 1 ne {1 setpapertray end} {end} ifelse} def
  156.   /B3 {} def
  157.   /BENV {statusdict begin papertray 2 ne {2 setpapertray end} {end} ifelse} def} if
  158. msprod (IBM Personal Page Printer II) eq
  159.  {/B1 {statusdict begin papertray 1 ne {1 setpapertray end} {end} ifelse} def
  160.   /B2 {statusdict begin papertray 2 ne {2 setpapertray end} {end} ifelse} def
  161.   /B3 {} def
  162.   /BENV {statusdict begin papertray 3 ne {3 setpapertray end} {end} ifelse} def} if
  163. % Add other printer specific tray orderings here.
  164. %%EndModelCheck
  165. /MB {statusdict begin /manualfeed true store end} def
  166. /ME {statusdict begin /manualfeed false store end} def
  167. /DB {statusdict begin true setduplexmode end} def
  168. /DE {statusdict begin false setduplexmode end} def
  169. /B {fs 2 and 0 eq {Bft} {BIft} ifelse
  170.  ftsz scalefont setfont fs 1 or /fs exch def} bind def
  171. /I {fs 1 and 0 eq {Ift} {BIft} ifelse
  172.  ftsz scalefont setfont fs 2 or /fs exch def} bind def
  173. /BI {BIft ftsz scalefont setfont fs 
  174.  2 or 1 or /fs exch def} bind def
  175. /E {Eft ftsz scalefont setfont /fs 0 def} bind def
  176. /F {/ftsz exch def (-) stringwidth pop 2 div neg /STh exch def
  177.  /ftcd exch def 0 2 fonttable length 1 sub {dup fonttable exch 
  178.  get ftcd eq {1 add fonttable exch get fontset exit} {pop}
  179.  ifelse} for E} bind def
  180. /LU {currentpoint /uy exch def /ux exch def 1 ssm} bind def
  181. /LD {currentpoint /uy exch def /ux exch def 2 ssm} bind def
  182. /LS {currentpoint /suy exch def /sux exch def 4 ssm} bind def
  183. /LL {currentpoint /luy exch def /lux exch def /ldmode exch def 8 ssm} bind def
  184. /LE {smode 1 and 0 ne {false (_) ul} if
  185.      smode 2 and 0 ne {true (_) ul} if
  186.      smode 4 and 0 ne {false (\352) ul} if
  187.      smode 8 and 0 ne {lux luy ldot pop pop} if
  188.      not smode and /smode exch def} bind def
  189. /BD {STh ssc} bind def
  190. /BU {STh neg ssc} bind def
  191. /BN {0 ssy neg rmoveto} bind def
  192.  
  193. /msinit {/sw 0 def /ftsz 12 def /smode 0 def /STh -3.6 def /fs 0 def
  194.  /offset 0 def /ldsp 4 def fonttable 1 get fontset E initmatrix
  195.  statusdict begin /waittimeout 360 def end} def
  196. /fontset {dup 0 get findfont /Eft exch def dup 1 get findfont /Bft exch
  197.  def dup 2 get findfont /Ift exch def 3 get findfont /BIft exch def} def
  198. /msu {20 div} bind def 
  199. /ssc {dup /ssy exch def 0 exch rmoveto} bind def
  200. /ssm {dup smode or /smode exch def} bind def
  201. /dul {cc true charpath pathbbox newpath exch pop 2 copy exch sub
  202.  2 mul /dulsp exch def 2 index 2 index moveto cx1 4 -1 roll sub
  203.  dup 0 rlineto 3 1 roll exch sub 0 exch rlineto neg 0 rlineto
  204.  closepath fill} bind def
  205. /ul {gsave /cc exch def currentpoint pop /cx1 exch def smode 4 ne
  206.  {ux uy} {sux suy} ifelse moveto dul {grestore gsave smode 4 ne
  207.  {ux uy} {sux suy} ifelse dulsp 2 gt {dulsp} {dulsp 2 mul} ifelse sub
  208.  moveto dul} if grestore} bind def
  209. /lsetup {x ldsp div round cvi ldsp mul /x exch def lux ldsp div
  210.  round cvi ldsp mul /lux exch def lux ldsp 2 div add luy moveto
  211.  x lux sub ldsp div cvi} bind def
  212. /ldot {gsave 2 copy currentpoint /y exch def /x exch def
  213.  newpath
  214.  ldmode 0 eq {1 setlinewidth 1 setlinecap x lsetup
  215.               {0 0 rlineto ldsp 0 rmoveto} repeat stroke pop pop pop}
  216.  {ldmode 1 eq {.1 setlinewidth lsetup 1 sub 0 (M) stringwidth pop 2.5
  217.                div rmoveto {ldsp 2 sub 0 rlineto 2 0 rmoveto} repeat
  218.                stroke pop pop}
  219.  {ldmode 2 eq {[] 0 setdash /offset 1.4 def .2 setlinewidth
  220.                offset sub moveto x y offset sub lineto stroke} if}
  221.  ifelse} ifelse grestore} def
  222. % /OrigName /NewName Foreign
  223. /Foreign {
  224.   exch findfont begin
  225.   currentdict dup length dict begin
  226.     { 1 index /FID ne {def} {pop pop} ifelse } forall
  227.     /FontName exch def
  228.     /Encoding foreignvec def
  229.   currentdict dup end end
  230.   /FontName get exch definefont pop
  231. } bind def
  232.  
  233. /foreignvec StandardEncoding 256 array copy def
  234. % the following are differences from StandardEncoding.
  235. % Sequential entries do not require indices:
  236. 0 [ 20/paragraph/section 39/quotesingle 96/grave
  237. 128/Ccedilla/udieresis/eacute/acircumflex/adieresis/agrave/aring/ccedilla
  238. /ecircumflex/edieresis/egrave/idieresis/icircumflex/igrave/Adieresis/Aring
  239. /Eacute/ae/AE/ocircumflex/odieresis/ograve/ucircumflex/ugrave/ydieresis
  240. /Odieresis/Udieresis/cent/sterling/yen/P/florin/aacute/iacute/oacute/uacute
  241. /ntilde/Ntilde/ordfeminine/ordmasculine/questiondown/.notdef/.notdef/half
  242. /quarter/exclamdown/guillemotleft/guillemotright/Aacute/Acircumflex/Agrave
  243. /Atilde/Ecircumflex/Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave
  244. /Oacute/Ocircumflex/Ograve/Otilde/Uacute/Ucircumflex/Ugrave/Scaron
  245. /Ydieresis/emdash/Zcaron/.notdef/otilde/scaron/zcaron/fraction/section
  246. /currency/quotesingle/quotedblleft/guilsinglleft/guilsinglright/quoteleft
  247. /quoteright/endash/dagger/daggerdbl/paragraph/quotesinglbase/quotedblbase
  248. /quotedblright/ellipsis/.notdef/grave/acute/circumflex/tilde/macron
  249. /germandbls/breve/dotaccent/dieresis/cedilla/.notdef/hungarumlaut/ogonek
  250. /caron/emdash/Lslash/Oslash/dotlessi/lslash/oslash/.notdef/.notdef/.notdef
  251. /.notdef/.notdef/atilde/.notdef/.notdef/ring/bullet/periodcentered/.notdef
  252. /.notdef/.notdef/.notdef/.notdef
  253. ] {dup type /nametype eq {dup /Courier findfont /CharStrings get
  254.    exch known not {pop /.notdef} if foreignvec 2 index 2 index put
  255.    pop 1 add} {exch pop} ifelse
  256.   } forall pop
  257.  
  258. %%BeginMakeForeign
  259. /Courier /Courier-F Foreign
  260. /Courier-Bold /Courier-Bold-F Foreign
  261. /Courier-Oblique /Courier-Oblique-F Foreign
  262. /Courier-BoldOblique /Courier-BoldOblique-F Foreign
  263. /Helvetica /Helvetica-F Foreign
  264. /Helvetica-Bold /Helvetica-Bold-F Foreign
  265. /Helvetica-Oblique /Helvetica-Oblique-F Foreign
  266. /Helvetica-BoldOblique /Helvetica-BoldOblique-F Foreign
  267. /Helvetica-Narrow /Helvetica-Narrow-F Foreign
  268. /Helvetica-Narrow-Bold /Helvetica-Narrow-Bold-F Foreign
  269. /Helvetica-Narrow-Oblique /Helvetica-Narrow-Oblique-F Foreign
  270. /Helvetica-Narrow-BoldOblique /Helvetica-Narrow-BoldOblique-F Foreign
  271. /Times-Roman /Times-Roman-F Foreign
  272. /Times-Bold /Times-Bold-F Foreign
  273. /Times-Italic /Times-Italic-F Foreign
  274. /Times-BoldItalic /Times-BoldItalic-F Foreign
  275. %%EndMakeForeign
  276.  
  277. /fonttable [
  278. 0 [/Courier-F /Courier-Bold-F /Courier-Oblique-F /Courier-BoldOblique-F]
  279. 8 [/Helvetica-F /Helvetica-Bold-F /Helvetica-Oblique-F /Helvetica-BoldOblique-F]
  280. 10 [/Helvetica-Narrow-F /Helvetica-Narrow-Bold-F /Helvetica-Narrow-Oblique-F /Helvetica-Narrow-BoldOblique-F]
  281. 24 [/Times-Roman-F /Times-Bold-F /Times-Italic-F /Times-BoldItalic-F]
  282. 56 [/Symbol /Symbol /Symbol /Symbol]
  283. 57 [/LineDraw /LineDraw /LineDraw /LineDraw]
  284. ] def
  285.  
  286. %%BeginGraphicsDefs
  287. /M {moveto} bind def
  288. /L {lineto} bind def
  289. /LH {currentpoint exch pop lineto} bind def
  290. /LV {currentpoint pop exch lineto} bind def
  291. /R {3 index 1 index 1 index 5 index 5 index 1 index M
  292.  L L L closepath pop pop} def
  293. /setpat {setscreen 100 div setgray} bind def
  294. /setgrayed {{dup mul exch dup mul add 1 exch sub} setpat} bind def
  295. /setbar {{pop} setpat} bind def
  296. /setcross {{2 copy gt {pop} {exch pop} ifelse} setpat} bind def
  297. /fi {1 -1 scale} bind def
  298. /II1 {save count /mscount exch def} bind def
  299. /II2 {userdict begin /showpage {} def /letter {} def
  300.   /legal {} def /a4 {} def /b5 {} def
  301.   /clear { {cleartomark count msdict /mscount get eq {exit} if} loop mark} def
  302.    mark} def
  303. /IT {pop restore} bind def
  304. /IX {exch msu exch msu neg ptop add translate} bind def
  305. /IS {div 3 1 roll div exch scale} bind def
  306. %%EndGraphicsDefs
  307. %%EndProcSet
  308. save /msdictstate exch def
  309. %%EndProlog
  310.